home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / world conquest.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  334 lines
  1. 10 REM**********************
  2. 20 REM*   WORLD CONQUEST   *
  3. 25 REM*                    *
  4. 30 REM* HOWARD CAMPBELL    *
  5. 31 REM* 3463 PIPER DRIVE   *
  6. 32 REM* NORTHWOOD, OHIO    *
  7. 33 REM* 43619              *
  8. 34 REM* (419) 698-1195     *
  9. 35 REM**********************
  10. 36 :
  11. 50 DIMRO%(51),CL%(51),SC(51),CO%(51),TR%(51),BO%(51,5)
  12. 60 R=RND(-TI):MO=0
  13. 90 PRINT"[147]";:POKE53280,0:POKE53281,0:POKE646,7
  14. 92 GOSUB6000:GOSUB9100:FORI=1TO10:GOSUB9500:NEXTI:GOSUB30000:GOSUB30000
  15. 93 PRINT"INSTRUCTIONS? Y OR N"
  16. 94 GETA$:IFA$=""THEN94
  17. 98 IFA$="Y"THENGOSUB20000
  18. 99 PRINT"[147]";:GOTO 2000
  19. 100 REMCOMPUTER'S SELECTION OF POA
  20. 105 P1=1:P2=0:CO=2
  21. 108 LA=AT:F=0
  22. 110 B1=1:E1=50:S1=1:R=RND(.):IFR>.5THENE1=25
  23. 115 R=RND(.):IFR>.5THENB1=50:E1=1:S1=-1:R=RND(.):IFR>.5THENB1=25
  24. 120 K=0:L=0:FORI=B1TOE1STEPS1:R=RND(.)
  25. 130 IFCO%(I)<>2THEN150
  26. 140 IFR>.3THENK=1:BA=I:I=E1
  27. 150 NEXTI
  28. 151 IFCO%(LA)=2ANDF=0THENBA=LA:K=1:GOTO160
  29. 152 IFCO%(LA-(LA<50))=2ANDF=0THENK=1:BA=LA+1:GOTO160
  30. 153 IFCO%(LA-(LA>1))=2ANDF=0THENK=1:BA=LA-1:GOTO160
  31. 160 F=1:FORJ=1TO4
  32. 165 IFCO%(BO%(BA,J))=7THENAT=BO%(BA,J):L=1
  33. 169 NEXTJ:IFK=0ORL=0THEN110
  34. 172 PRINT"";:PRINTSPC(33)"BASE   [157][157][157]"BA
  35. 173 PRINT"";:PRINTSPC(33)"       "
  36. 180 R=INT(RND(.)*2+1):IFTR%(BA)<=2THENR=1
  37. 182 IFTR%(BA)>=TR%(AT)THENR=2
  38. 185 ON R GOSUB200,300
  39. 190 RETURN
  40. 200 REMCOMPUTER TROOP BUILD-UP
  41. 205 PRINT"";:PRINTSPC(33)"DEPLOY"
  42. 210 TP=INT(TE%(P1)*.2):IFTP<5THENTP=5
  43. 220 TR%(BA)=TR%(BA)+TP
  44. 230 GOSUB560
  45. 240 RETURN
  46. 300 REMATTACK MODE
  47. 302 PRINT"";:PRINTSPC(33)"ATT."AT
  48. 310 SA=INT(TR%(BA)*.2+.5)
  49. 320 CA%(0)=INT(RND(.)*3):CA%(1)=INT(RND(.)*3)
  50. 325 GOSUB9000
  51. 330 TR%(BA)=TR%(BA)-CA%(1):IFTR%(BA)<=1THENTR%(BA)=1:WIN=1
  52. 340 TR%(AT)=TR%(AT)-CA%(0):IFTR%(AT)<=0THENGOSUB400:RETURN
  53. 350 IFTR%(BA)>SAANDP1=1THEN320
  54. 360 GOSUB500:RETURN
  55. 400 REMOCCUPATION
  56. 410 TR%(AT)=INT(TR%(BA)*.5):TR%(BA)=TR%(BA)-TR%(AT)
  57. 420 P=SC(AT):POKEP,CO:POKEP+1,CO:POKEP+2,CO:POKEP+3,CO:POKEP+40,CO:POKEP+41,CO
  58. 430 POKEP+42,CO:POKEP+43,CO:POKEP+80,CO:POKEP+81,CO:POKEP+82,CO:POKEP+83,CO
  59. 435 CO%(AT)=CO
  60. 440 TE%(P1)=TE%(P1)+1:TE%(P2)=TE%(P2)-1
  61. 450 GOSUB500:WIN=1:RETURN
  62. 500 REMPOSITION AND PRINT
  63. 510 PRINT"";:SC$=STR$(TR%(AT))
  64. 515 LE=LEN(SC$):SC$=RIGHT$(SC$,LE-1)
  65. 520 IFCL%(AT)=0THEN540
  66. 530 FORI=1TOCL%(AT):PRINT"";:NEXT
  67. 540 FORI=1TORO%(AT):PRINT"";:NEXT
  68. 550 PRINT"[150]  [157][157]"SC$
  69. 560 PRINT"";:SC$=STR$(TR%(BA))
  70. 565 LE=LEN(SC$):SC$=RIGHT$(SC$,LE-1)
  71. 570 IFCL%(BA)=0THEN580
  72. 575 FORI=1TOCL%(BA):PRINT"";:NEXT
  73. 580 FORI=1TORO%(BA):PRINT"";:NEXT
  74. 590 PRINT"[150]  [157][157]"SC$
  75. 595 RETURN
  76. 1000 PRINT"1  [170]2  [170]3  [170]4  [223]"
  77. 1010 PRINT"   [170]   [170]   [170]    "
  78. 1020 PRINT"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
  79. 1030 PRINT"5  [170]6  [170]7  [170]8   "
  80. 1040 PRINT"   [170]   [170]   [170]    "
  81. 1050 PRINT"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
  82. 1060 PRINT"9   "
  83. 1070 PRINT"    "
  84. 1080 PRINT"[175][175][175][175]"
  85. 1090 PRINT"10 [170]11 [170]12 [170]13 [223]"
  86. 1100 PRINT"   [170]   [170]   [170]    "
  87. 1110 PRINT"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][175]"
  88. 1120 PRINT"14 [170]15 [170]16 [170]17 [170]26 [170]
  89. 1130 [153]"   +   +   +   +   +
  90. 1140 PRINT"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186]
  91. 1150 [153]"18 +19 +20 +21  "
  92. 1160 [153]"   +   +   +    "
  93. 1170 [153]"ANDANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDAND"
  94. 1180 [153]"22 +23 +24 +25  "
  95. 1190 [153]"   +   +   +    "
  96. 1200 [153]"(null)ANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDWAITSTEP"
  97. 1210 [153]""[166]20)"27 +28 (null)"
  98. 1220 [153][166]20)"   +    "
  99. 1230 [153][166]20)"ANDANDANDSQRANDANDANDAND"
  100. 1240 [153][166]20)"29 +30  "
  101. 1250 [153][166]20)"   +    "
  102. 1260 [153][166]20)"ANDANDANDSQRANDANDANDAND"
  103. 1270 [153][166]20)"31 +32 +33 (null)"
  104. 1280 [153][166]20)"   +   +    "
  105. 1290 [153][166]20)"ANDANDANDSQRANDANDANDSQRANDANDANDAND"
  106. 1300 [153][166]20)"34 +35 +36  "
  107. 1310 [153][166]20)"   +   +    "
  108. 1320 [153][166]20)"ANDANDANDSQRANDANDANDSQRANDANDANDAND"
  109. 1330 [153][166]20)"37 +38 +39  45 (null)";
  110. 1340 [153][166]20)"   +   +        ";
  111. 1350 [153][166]20)"ANDANDANDSQRANDANDANDSQRANDANDANDANDANDANDANDAND";
  112. 1360 [153][166]20)"40 +41 +42 +43 +44  ";
  113. 1370 [153][166]20)"   +   +   +   +    ";
  114. 1380 [153][166]20)"ANDANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDAND";
  115. 1390 [153][166]20)"46 +47 +48 +49 +50  ";
  116. 1400 [153][166]20)"   +   +   +   +    WAIT";
  117. 1410 [153][166]20)"(null)ANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDWAITSTEP"
  118. 1411 [153]""[166]28)"PRINT(null)LENLENLENLENLENLENLENLENLENLENRIGHT$";
  119. 1412 [153][166]28) "PEEK   WORLD  PEEK" ;
  120. 1413 [153][166]28) "PEEK CONQUEST PEEK" ;
  121. 1414 [153][166]28) "MID$LENLENLENLENLENLENLENLENLENLEN(null)" ;
  122. 1415 [153]"";:[153][166]32)"CONTCOMPUTER";:[153][166]34)"MOVES"
  123. 1420 [142]
  124. 2000 [143]MAIN TRUNK
  125. 2010 [141]1000
  126. 2030 :
  127. 2040 [141]7000
  128. 2050 [141]100
  129. 2060 [139]TE%(1)[178]50 [167] [141]4000:[153]"COMPUTER WINS":[137]9600
  130. 2070 [141]3000:[141]5000
  131. 2080 [139]TE%(0)[178]50 [167][141]4000:[153]"YOU WIN":[137]9600
  132. 2090 [137] 2050
  133. 3000 [143]PLAYER SELECTION OF POA
  134. 3010 [141]4000:CO[178]7:P1[178]0:P2[178]1
  135. 3020 [151]198,0:[153]"SYSENTER PLAYING  POSITION PRINT";:L[178]2:C[178]7:N[178]1:[141]29700
  136. 3022 BA[178][197](A$)
  137. 3030 [139]BA[179]1[176]BA[177]50[167]3000
  138. 3031 [139]CO%(BA)[178]2[167]3000
  139. 3040 [141]4000:[153][166]10)"F1WAIT - ATTACK":[153][166]10)"F3WAIT - DEPLOY":[151]198,0
  140. 3050 A$[178]"":[161]A$:[139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[167]3050
  141. 3060 A[178][198](A$)[171]132:[145] A [141]3200,210
  142. 3070 [141]4000:[142]
  143. 3200 [143]PLAYER ATTACK MODE
  144. 3210 [141]4000:[153]"SYSENTER POSITION OF AREA UNDER ATTACK PRINT";:L[178]2:N[178]1:WIN[178]0
  145. 3215 [141]29700:AT[178][197](A$)
  146. 3220 K[178]0:[129]I[178]1[164]4:[139]AT[178]BO%(BA,I)[167]K[178]1
  147. 3230 [130]I:[139]K[178]0[167]3200
  148. 3235 [141]4000
  149. 3240 [141]320:[139]WIN[178]1[167][142]
  150. 3250 [141]4020:[153]"SYSCONTINUE ATTACK? YWAIT OR NWAIT"
  151. 3260 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]3260
  152. 3270 [139]A$[178]"Y"[167]3240
  153. 3275 [141]4000
  154. 3280 [142]
  155. 4000 [143]ERASE BOTTOM AND POSITION PRINT
  156. 4010 [158] 924
  157. 4020 [153]"";:[129]I[178]1[164]22:[153]"";:[130]
  158. 4030 [142]
  159. 5000 MO[178]MO[170]1:[153]"OPEN"MO:[153]"MOVES":[142]
  160. 6000 [129]I[178]1[164]50:CO%(I)[178]7:TR%(I)[178]5:[130]
  161. 6010 TE%(0)[178]25:TE%(1)[178]25
  162. 6020 [129]I[178]1[164]50
  163. 6030 [135] CL%(I),RO%(I),SC(I)
  164. 6040 [129]J[178]1[164]4:[135]BO%(I,J):[130]
  165. 6050 [130]I
  166. 6055 [129]I[178]960[164]1022:[135]A:[151]I,A:[130]
  167. 6056 [151]2040,15:V[178]53248:[151]V[170]39,10:[151]V[170]28,1:[151]V[170]37,7:[151]V[170]38,0
  168. 6060 [142]
  169. 6070 [131] 0 , 1,55296,0 ,0 ,5 ,2
  170. 6080 [131] 4 , 1,55300,1 ,6 ,3 ,0
  171. 6090 [131] 8 , 1,55304,2 ,7 ,4 ,0
  172. 6100 [131] 12, 1,55308,3 ,8 ,0 ,0
  173. 6110 [131] 0 , 4,55416,0 ,0 ,6 ,1
  174. 6120 [131] 4 , 4,55420,5 ,0 ,7 ,2
  175. 6130 [131] 8 , 4,55424,6 ,9 ,8 ,3
  176. 6140 [131] 12, 4,55428,7 ,9 ,0 ,4
  177. 6150 [131] 10, 7,55546,7,8,12,13
  178. 6160 [131] 0 ,10,55656,0 ,14,11,0
  179. 6170 [131] 4 ,10,55660,10,15,12,0
  180. 6180 [131] 8 ,10,55664,11,16,13,9
  181. 6190 [131] 12,10,55668,12,17,9 ,0
  182. 6200 [131] 0 ,13,55776,0 ,18,15,10
  183. 6210 [131] 4 ,13,55780,14,19,16,11
  184. 6220 [131] 8 ,13,55784,15,20,17,12
  185. 6230 [131] 12,13,55788,16,21,26,13
  186. 6240 [131] 0 ,16,55896,0 ,22,19,14
  187. 6250 [131] 4 ,16,55900,18,23,20,15
  188. 6260 [131] 8 ,16,55904,19,24,21,16
  189. 6270 [131] 12,16,55908,20,25,0 ,17
  190. 6280 [131] 0 ,19,56016,0 ,0 ,23,18
  191. 6290 [131] 4 ,19,56020,22,0 ,24,19
  192. 6300 [131] 8 ,19,56024,23,0 ,25,20
  193. 6310 [131] 12,19,56028,24,0 ,0 ,21
  194. 6320 [131] 16,13,55792,17,0 ,37,0
  195. 6330 [131] 20,1 ,55316,0,29,28,0
  196. 6340 [131] 24,1 ,55320,27,30,0,0
  197. 6350 [131] 20,4 ,55436,0,31,30,27
  198. 6360 [131] 24,4 ,55440,29,32,0,28
  199. 6370 [131] 20,7,55556,0,34,32,29
  200. 6380 [131] 24,7,55560,31,35,33,30
  201. 6390 [131] 28,7,55564,32,36,0,0
  202. 6400 [131] 20,10,55676,0,37,35,31
  203. 6410 [131] 24,10,55680,34,38,36,32
  204. 6420 [131] 28,10,55684,35,39,0,33
  205. 6430 [131] 20,13,55796,26,40,38,34
  206. 6440 [131] 24,13,55800,37,41,39,35
  207. 6450 [131] 28,13,55804,38,42,0,36
  208. 6460 [131] 20,16,55916,0,46,41,37
  209. 6470 [131] 24,16,55920,40,47,42,38
  210. 6480 [131] 28,16,55924,41,48,43,39
  211. 6490 [131] 32,16,55928,42,49,44,0
  212. 6500 [131] 36,16,55932,43,50,0,45
  213. 6510 [131] 36,13,55812,0,44,0,0
  214. 6520 [131] 20,19,56036,0,0,47,40
  215. 6530 [131] 24,19,56040,46,0,48,41
  216. 6540 [131] 28,19,56044,47,0,49,42
  217. 6550 [131] 32,19,56048,48,0,50,43
  218. 6560 [131] 36,19,56052,49,0,0,44
  219. 6570 [131] 0,0,0,24,0,128,0,0,64,1,130,2,128,1,9,96,104,36
  220. 6580 [131] 24,4,144,6,98,64,1,145,0,0,84,0,170,101,85,85,86,170,1,148,0,6,153
  221. 6590 [131]0,24,146,64,96,144,144,128,128,36,0,144,9,0,0,2,0,144,0,0,0,0
  222. 7000 [143]SELECT COMPUTER'S POSITIONS
  223. 7010 [129]I[178]1[164]25
  224. 7020 R[178][181]([187](.)[172]50[170]1)
  225. 7030 [139]CO%(R)[178]2[167]7020
  226. 7040 CO%(R)[178]2
  227. 7050 P[178]SC(R):[151]P,2:[151]P[170]1,2:[151]P[170]2,2:[151]P[170]3,2:[151]P[170]40,2:[151]P[170]41,2
  228. 7060 [151]P[170]42,2:[151]P[170]43,2:[151]P[170]80,2:[151]P[170]81,2:[151]P[170]82,2:[151]P[170]83,2
  229. 7070 [130]I
  230. 7080 [129]BA[178]1[164]50:[141]560:[130]BA
  231. 7090 [142]
  232. 7091 BA[178]25:AT[178]26
  233. 8000 SO[178]54272
  234. 8010 [151]SO,12:[151]SO[170]1,1:[151]SO[170]24,15
  235. 8020 [151]SO[170]5,15:[151]SO[170]6,252:[151]SO[170]4,129
  236. 8030 [142]
  237. 8040 SO[178]54272
  238. 8050 [151]SO[170]7,12:[151]SO[170]8,1:[151]SO[170]24,15
  239. 8060 [151]SO[170]12,15:[151]SO[170]13,252:[151]SO[170]11,129
  240. 8070 [142]
  241. 9000 Y[178]43[170]7.52[172](RO%(AT))
  242. 9005 Y1[178]43[170]7.52[172](RO%(BA))
  243. 9010 X[178]17[170]7.09[172](CL%(AT)[170]3)
  244. 9015 X1[178]17[170]7.09[172](CL%(BA)[170]3)
  245. 9020 [139]X[177]255[167][151]V[170]16,1:X[178]X[171]255
  246. 9025 [139]X1[177]255[167][151]V[170]16,3:X1[178]X1[171]255
  247. 9030 [151]V,X:[151]V[170]1,Y:[151]V[170]21,1
  248. 9040 [141]8000:[151]V[170]21,0
  249. 9045 [151]V,X1:[151]V[170]1,Y1:[151]V[170]21,1
  250. 9046 [141]8040:[151]V[170]21,0:[151]V[170]16,0
  251. 9049 [151]SO[170]4,128:[151]SO[170]11,128
  252. 9050 [142]
  253. 9100 [153]"LOAD"
  254. 9105 A$[178]"      SGN   THEN  (null)USR(null) (null)USR(null) FN   (null)(null)      ":[141]10000:[141]9500
  255. 9110 A$[178]"      SGN PEEK THEN  SGN THEN (null)ANDSQR FN   SGN SGN     ":[141]10000:[141]9500
  256. 9120 A$[178]"      SGN PEEK THEN  SGN THEN SGN(null)  FN   SGN SGN     ":[141]10000:[141]9500
  257. 9130 A$[178]"      (null)ANDPEEKANDSQR  (null)ANDSQR SGN (null) (null)ANDAND (null)(null)      ":[141]10000:[141]9500
  258. 9140 A$[178]"                             ":[141]10000
  259. 9150 A$[178]"(null)USRUSR (null)USR(null) (null)USR(null) (null)USR(null) FN THEN (null)USRUSR (null)USRUSR USR(null)USR":[141]10000:[141]9500
  260. 9160 A$[178]"FN   FN THEN FN THEN FN THEN FN THEN FN   (null)    THEN":[141]10000:[141]9500
  261. 9170 A$[178]"FN   FN THEN FN THEN FN THEN FN THEN (null)USRUSR  USR(null)  THEN":[141]10000:[141]9500
  262. 9180 A$[178]"(null)ANDAND (null)ANDSQR FN THEN (null)ANDSQR (null)ANDSQR (null)ANDAND ANDANDSQR  THEN":[141]10000:[141]9500
  263. 9190 A$[178]"              (null)              ":[141]10000:[141]9500
  264. 9200 [153]"":A$[178]"WRITTEN BY:":[141]10000:A$[178]"HOWARD CAMPBELL II":[141]10000
  265. 9210 [142]
  266. 9500 [143]RANDOM EXPLOSIONS
  267. 9510 X[178][187](.)[172]200[170]50
  268. 9520 Y[178][187](.)[172]200[170]50
  269. 9530 X1[178][187](.)[172]200[170]50
  270. 9540 Y1[178][187](.)[172]200[170]50
  271. 9550 [141]9020
  272. 9560 [142]
  273. 9600 [129]I[178]1[164]100:[141]9500:[130]I:[128]
  274. 10000 A[178][195](A$):[139]A[173]2[179][177][181](A[173]2)[167]A$[178]" "[170]A$:[137]10000
  275. 10010 [129]I[178]1[164]A[173]2:[153][163]19[171]I);[200](A$,I);[201](A$,I):[153]"ON";
  276. 10020 [130]I:[153]:[142]
  277. 20000 [153]"LOADPRINTTHE REDSPRINT ARE INTENT ON WORLD DOMINATION.";
  278. 20010 [153]"YOU ARE THE COMMANDER OF THE SYSYELLOWPRINT    "
  279. 20020 [153]"ARMY WHOSE MISSION IS TO KEEP YOUR     "
  280. 20030 [153]"WORLD FREE BY DEFEATING THE  RED ARMY  "
  281. 20040 [153]"IN ALL OF THE STATES ON YOUR WORLD'S   "
  282. 20050 [153]"THREE CONTINENTS.                      "
  283. 20060 [153]"EACH TURN YOU ARE GIVEN THE OPTION OF  "
  284. 20070 [153]"ATTACKING THE RED ARMY ON A DIRECT FRONT";
  285. 20080 [153]"OR BUILDING UP YOUR TROOPS IN A GIVEN  "
  286. 20090 [153]"STATE.                                 "
  287. 20100 [153]"IF YOU CHOOSE TO ATTACK THE ENEMY YOU  "
  288. 20110 [153]"MUST HAVE OVER 1 TROOP IN THE ATTACKING"
  289. 20120 [153]"FRONT. IF YOU WIN, THE STATE WILL TURN "
  290. 20130 [153]"TO YOUR COLOR.                         "
  291. 20132 [153]"THE NUMBER OF TROOPS IS GIVEN IN DEFPINKPRINT "
  292. 20134 [153]"IN THE  CENTER OF EACH STATE. THE NUMBER";
  293. 20138 [153]"OF THE STATE IS  IN  THE UPPER LEFT    "
  294. 20139 [153]"CORNER.                                "
  295. 20140 [153]"BEWARE!! THE ENEMY COMMANDER IS CLEVER "
  296. 20150 [153]"AND SHOWS NO MERCY!!! HE MAY ATTACK YOU"
  297. 20160 [153]"OR BUILD UP  TROOPS TO CARRY OUT HIS   "
  298. 20170 [153]"OWN PLAN TO DEFEAT YOUR ARMIES.        "
  299. 20180 [153]"GOOD LUCK!!!                           "
  300. 20200 [153][166]8)"SYSPRESS <SPACE> TO CONTINUE"
  301. 20210 [161]A$:[139]A$[178]""[167] 20210
  302. 20220 [142]
  303. 29700 [151]251,L : [143]INPUT LENGTH
  304. 29710 A$[178]"" : [143]INITIALIZE
  305. 29720 [158]828 : [143]ACTIVATE IRQ WEDGE
  306. 29730 [151]646,C : [143]SET INPUT COLOR
  307. 29740 [159]1,0:[132]1,A$:[160]1
  308. 29750 [139]A$[178]""[167]29040
  309. 29755 F[178]0
  310. 29760 [129]I[178]1[164][195](A$) : [143]CHECK NUMERIC INPUT
  311. 29770 [139]N[178]1[167][139][198]([202](A$,I))[179]48[176][198]([202](A$,I))[177]57[167]F[178]1
  312. 29780 [130]I
  313. 29785 [139]F[178]1[167]29740
  314. 29790 [158] 911 : [143]DEACTIVATE IRQ WEDGE
  315. 29800 [142]
  316. 30000 [135]L :[143]START POSITION OF ML ROUTINE
  317. 30010 [135]A$:[139]A$[178]"*"[167][142]
  318. 30020 [143]CONVERT HEXADECIMAL TO DECIMAL
  319. 30030 A[178][198](A$)[171]48:B[178][198]([201](A$,1))[171]48
  320. 30040 N[178]B[170]7[172](B[177]9)[170](16[172](A[170]7[172](A[177]9)))
  321. 30050 [151]L,N:L[178]L[170]1:[137]30010
  322. 30060 [131]828
  323. 30070 [131]38,20,F0,FF,86,FD,84,FE,18,A5,FE,65,FB,85,FC,A6,FB,A9,11,20,D2,FF
  324. 30080 [131]A9,B7,20,D2,FF,CA,D0,FA,20,86,03
  325. 30090 [131]78,A9,6A,8D,14,03,A9,03,8D,15,03,58,60
  326. 30100 [131]38,20,F0,FF,C4,FC,90,03,20,86,03,C4,FE,B0,03,20,86,03,E4,FD,F0,03
  327. 30110 [131]20,86,03,4C,31,EA,18,A6,FD,A4,FE,20,F0,FF,60
  328. 30120 [131]78,A9,31,8D,14,03,A9,EA,8D,15,03,58,60,*
  329. 30130 [131] 924
  330. 30140 [131] A0,50,A9,20,99,6F,07,88,D0,FA,60,*
  331. 60000 [129]I[178]2048[164][194](45)[170][194](46)[172]256
  332. 60010 [139][194](I)[178]143[175][194](I[170]1)[178]32[167][151]I[170]1,18
  333. 60020 [130]
  334.